00100		TITLE	CVTALC
00200		ENTRY	CVTALC
00300		DSKO=11
00400	ERR:	HRRZ	ENT+3
00500		CAIE	17
00600		JRST	[
00700		OUTSTR	[ASCIZ/
00800	?CAN'T WRITE MUSIC.MUS -- ERROR CODE /]
00900		IDIVI	12
01000		ADDI	60
01100		OUTCHR
01200		ADDI	1,60
01300		OUTCHR	1
01400		OUTSTR	[ASCIZ/?
01500	/]
01600		EXIT]
01700		OUTSTR	[ASCIZ/
01800	?MUSIC.MUS WILL BE FRAGMENTED  --  CONTINUING?
01900	/]
02000		JRST	CONT
02100	ENT:	BLOCK	12
02200	LK1:	BLOCK	4
02300	CVTALC:	0
02400		MOVEI	1
02500		HPQ
02600		JFCL
02700		MOVE	[SIXBIT/MUSIC/]
02800		MOVEM	LK1
02900		MOVE	[SIXBIT/MUS/]
03000		MOVEM	LK1+1
03100		SETZM	LK1+2
03200		SETZM	LK1+3
03300		LOOKUP	DSKO,LK1
03400		JRST	NODEL
03500		SETZM	LK1
03600		RENAME	DSKO,LK1
03700		JRST	[
03800		OUTSTR	[ASCIZ/
03900	?PROTECTION FAILURE ON MUSIC.MUS?
04000	/]
04100		EXIT]
04200	NODEL:	MOVEI	11
04300		MOVEM	ENT
04400		SETZM	ENT+1
04500		MOVE	[SIXBIT/MUSIC/]
04600		MOVEM	ENT+2
04700		MOVE	[SIXBIT/MUS/]
04800		MOVEM	ENT+3
04900		SETZM	ENT+4
05000		SETZM	ENT+5
05100		SETZM	ENT+6
05200		SETZM	ENT+7
05300		SETZM	ENT+10
05400		MOVEI	↑D1000
05500		MOVEM	ENT+11
05600		ENTER	DSKO,ENT
05700		JRST	ERR
05800	CONT:	MOVEI
05900		HPQ
06000		JFCL
06100		JRA	16,(16)
06200		END